From dad043f1682a079d6e12cff6364851061b1eb255 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 19 Sep 2003 22:42:24 +0000 Subject: [PATCH] (use-fancy-splash-screens-p, display-splash-screen): Move display-graphic-p test from latter to former. Fixes previous change. --- lisp/startup.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 8d425f84e19..2808689eaeb 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1341,9 +1341,10 @@ we put it on this frame." (defun use-fancy-splash-screens-p () "Return t if fancy splash screens should be used." - (when (or (and (display-color-p) + (when (and (display-graphic-p) + (or (and (display-color-p) (image-type-available-p 'xpm)) - (image-type-available-p 'pbm)) + (image-type-available-p 'pbm))) (let ((frame (fancy-splash-frame))) (when frame (let* ((img (create-image (or fancy-splash-image @@ -1517,8 +1518,7 @@ Type \\[describe-distribution] for information on getting the latest version.")) Fancy splash screens are used on graphic displays, normal otherwise." (interactive) - (if (and (display-graphic-p) - (use-fancy-splash-screens-p)) + (if (use-fancy-splash-screens-p) (fancy-splash-screens) (normal-splash-screen))) -- 2.30.2